home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Morpha / 3DO.DXR / 00065.ls < prev    next >
Encoding:
Text File  |  1998-07-31  |  215 b   |  12 lines
  1. on mouseUp
  2.   global label, s, sel
  3.   set s to random(10)
  4.   if label = 1 then
  5.     do("sel" & s & EMPTY)
  6.     put "generating" into field "debug"
  7.   else
  8.     do("sel" & s + 10 & EMPTY)
  9.     set sel to s + 10
  10.   end if
  11. end
  12.